home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol099 / remrem.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-15  |  512 b   |  14 lines
  1. 10  INPUT "Enter file to remove remarks from-",I$:OPEN I$ FOR INPUT AS 1
  2. 20  INPUT "Enter output filename-",O$:OPEN O$ FOR OUTPUT AS 2
  3. 30  WHILE NOT EOF(1)
  4. 40  LINE INPUT#1,X$:C=0
  5. 50  C=C+1:X=INSTR(C,X$,"'"):IF X=0 THEN 200
  6. 60  Y=INSTR(C,X$,CHR$(34)):IF Y=0 OR Y>X THEN 170
  7. 70  C=INSTR(Y+1,X$,CHR$(34)):IF C>0 AND C<LEN(X$) THEN 50 ELSE 200
  8. 80  STOP
  9. 170  Y=INSTR(X$," "):IF MID$(X$,Y,X-Y)=SPACE$(X-Y) THEN X$=MID$(X$,1,Y)+"'":GOTO 200
  10. 180  IF X>Y+1 THEN X=X-1
  11. 190  X$=MID$(X$,1,X)
  12. 200  PRINT#2,X$:PRINT X$
  13. 210  WEND
  14.